home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr34 / tarchiv.zip / ARCHIV.PAS < prev    next >
Pascal/Delphi Source File  |  1995-01-27  |  764b  |  39 lines
  1. Program Archiv;
  2.  
  3. Uses Dos, Arc;
  4.  
  5. Var
  6.   A       : PArchiver;
  7.   LineStr : String[80];
  8.  
  9. Begin
  10.  LineStr[0]:=#80;
  11.  FillChar(LineStr[1],80,196);
  12.  Writeln (MagicCode,' - File archiver program -');
  13.  Write (LineStr);
  14.  If ParamCount<>3 Then Begin
  15.   Writeln ('Usage: Archiv a|x|v <archive_name> <wildcard>|@<filelist>');
  16.   Exit;
  17.  End;
  18.  If ParamStr(1)='a' Then Begin
  19.   New (A,Init(ParamStr(2)+'.A',fWrite));
  20.   A^.AddFiles(ParamStr(3));
  21.   Dispose (A,Done);
  22.   Exit;
  23.  End;
  24.  If ParamStr(1)='x' Then Begin
  25.   New (A,Init(ParamStr(2)+'.A',fRead));
  26.   A^.ExtractFiles(ParamStr(3));
  27.   Dispose (A,Done);
  28.   Exit;
  29.  End;
  30.  If ParamStr(1)='v' Then Begin
  31.   New (A,Init(ParamStr(2)+'.A',fRead));
  32.   A^.DisplayFlag := True;
  33.   A^.ExtractFiles(ParamStr(3));
  34.   Dispose (A,Done);
  35.   Exit;
  36.  End;
  37. End.
  38.  
  39.